class TEST
feature
    test : INTEGER
end

class APP
feature
    INIT 
    local
        a :TEST 
    do
        a.test:=5
    end
end

